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DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aeRPORAT ION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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Facility: FAL (DECnet File Access Listener) 
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000 ; 
B00 3 Abstract: 
000 : This module is responsible for receiving and transmitting DAP messages 
Bop ; ont tor receiving messages in the mailbox associated with the logical 
5 nk. 
000 $ 
sit ; Environment: VAX/VMS, user mode 
900 : Author: James A. Krycka, Creation Date: 16-JUN-1977 
009 : Modified By: 
9000 : V03-005 JAK0145 J A Krycka 12-APR-1984 
000 3 Revise DAP message blocking algorithm in FALSTRANSMIT to 
$388 : eliminate an extra move of the data and rename the message 
0000 : descriptors for clarity. 
9000 : V03-004 JAK0139 J A Krycka O2-APR-1984 
448 : Support DAP buffer size up to 65555 bytes. 
0900 ; v03-003 JAKO133 J A Krycka 20-MAR-1984 
4 : Change a signed compare to an unsigned compare in FALSTRANSMIT. 
$09 : V03-002 JAK0137 J A Krycka 12=MAR-1984 
4 : Minor cleanup. 
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| FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 VAX/VMS v04-00 Pa 
| yOx~008 DECLARATIONS ~3Ep= 1984 1:16:45 LRALVERCTFALDAPIONMAR: 1 ef 3) 
60 -SBTTL DECLARATIONS 
61 
0 86 3 
65 ; Include Files: 
eg | 
000 6 SDAPPLGDEF : Define DAP prologue symbols 
44 89 SDAPHORDEF :; Define DAP pessete header | 
000 68 SDAPCNF DEF ; Define DAP Confi uration. pessage 
000 § $F ALWRKDEF ; Define FAL Work Area symobls 
000 0 $F ALSTBDEF ; Define statistics Block symbols 
44 71 SIODEF : Define Q10 function codes | 
00 ue SMSGDEF ; Define mailbox message ID codes 
0000 7 
0000 74; 
0000 75 ; Macros: 
0000 ug : 
0000 3 None 
0000 78 ; 
0000 79 ; Equated Symbols: | 
0000 80 ; 
0000 81 
0000 82 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 83 ASSUME FALS$Q_ FLG £8 0 
0000 84 
0000 85 ; | 
0000 86 ; Own Storage: 
0000 +87: | 
0000 = 88 gk None 
| 
| 
} 
| 
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“ve~000 FALSRE 
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CEIVE = READ AND PARSE DAP MESSAGE 5-SEP=-1984 01:16:43 CFAL.SRCIJFALDAPIO.MAR; 1 (3) 
8 9 -SBTTL FALSRECEIVE = READ AND PARSE DAP MESSAGE 
| 0000 3 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 
0 93 ; ++ | 
| 4 : Functional Description: 
6 9 FALSRECEIVE returns the next DAP message read from the partner process | 
00 9 as a decoded message via the DAP control block. | 
| 8 3 DAP inbound message blocking is supported. 
| 00 Calling Sequence: | 
| 009 BSBW —-FALSRECEIVE | 
| Input Parameters: 

R8& Address of FAL work area 

| R9 Address of DAP control block 
| R10 Address of FAB 


R11 Address of RAB 
Implicit Inputs: 

DAP$Q_MSG_BUF 1 
Output Parameters: 

RO-R1 Destroyed 
Implicit Outputs: 


DAP$Q_MSG_BUF1 and DAP$Q_MSG_BUF2 plus 
DAP control block is updated to reflect message parse 


Sete Ge Ge Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Se Se Ge Ge Se Se Ge Ge Ge Ge Se Ge Ge Ge Ge See Se Ge Se Be Se 


me ee et a ed dd ed dd 2 ss 2 3 8 I 


| 
0 4 ; Completion Codes: 
0 DAP$Q_DCODE_STS 
Side Effects: 
0 None 
4 FALSRECEIVE:: 3 Fatry Point 
08 Ao s«BS 89 5 TSTW DAPS$Q_MSG_BUF1(R9) ; Is there a blocked message in buffer? 
07 12 00 é BNEQ 10 : Branch if yes | 
24 10 0005 7? BSBB FALSRECEIVE PKT ; Read next DAP message packet 
40 AB 7D 0007 8 MOVQ FAL$Q_RCV(RB),- 3 Copy message descriptor to 
08 a9 OA 3 DAPS$Q"MSG_BUF {(R9) ; DAP message descriptor 
00C 141; | 
3 § ; Parse next DAP message. 
OC 14a | 
59 oD OC 5 108: PUSHL R9 ; Push address of DAP control block 
0000'CF 01 FB OQO0E 6 CALLS #1,W*FALSDECODE_MSG ; Parse the message 


~ eee eee aaa... 
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:.% 
FA bape = DAP mE SSAGE 1/0 ROUTINES 16-S or 188e 01:4): 2 yeu/ves 8 v04-00 
iV FALSRECEIVE = READ AND PARSE DAP MESSAGE 5-SEP-1984 01:16:4 FAL.SR cH LDAP 10.MAR;1 
1 147 
1 33 : 
i 138 ; Update counter and log the DAP message. 
1 13 ; 
00c4 CB D6 1 1 § INCL FALSL_STB+FALSL_RCV -MSG(RB8) 
01 15 : Count DAP message for Logging 
OF 68 22 #=#€1 Q017 154 BBC #FALSV_LOG_MSG,(R8),20$ ; Branch if bogging disabl 
14 A9 DD QO1B 155 PUSHL DAP$Q f36 _BuF $4(R95 ; Adddress of DAP message just decoded 
10 Ads OD Bif 156 PUSHL DAP$Q"-MSG" But (R9) : Size of DAP message aati decoded 
OO'CF 9F 00 157 PUSHAB W*FALSGT BECODE ; Address of counte CII string 
03 FB 8 .. 138 CALLS #3, WPFALSDISPLAY _MSG ; Print the message 
05 002A 159 208: RSB ; Exit 
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| FALDAPIO = DAP SAGE 1/0 ROUTINES 16-SEP-1984 01:4 
voe-000 FALSRECEIVE_PKT = RECEIVE DAP PACKET “SEP=1984 844 
~SBTTL FALSRECEIVE_PKT = RECEIVE 
»-PSECT FALSCODE NOSHR ,EXE 


p++ 
; Functional Description: 


oO 
oOo 
oOo 
oO 
OOoCooo 


Calling Sequence: 


BSBW FALSRECEIVE_PKT 
Input Parameters: 
R8 Address of FAL work area 


R9 Address of DAP control bl 
R10 Address of FA 
R11 Address of RAB 
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Implicit Inputs: 


Output Parameters: 


RO Completion code 


R1 Destroyed 
Implicit Outputs: 
FAL$Q_RCV 
Completion Codes: 
: None 
; Side Effects: 
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: None 
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FALSRECEIVE_PKT:: 
S #FALSV_RCVAST, (RB) ,10$ 
W*FALSGL_RECVWAIT 


S 
GEFNFAFALSK_RCVEFN 


BIT #FALSV_RCVOIO, (RB) 
BIT #FALSVIRCVAST. (RB) 
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10$: 


: Form receive descriptor pointing to the 
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MOVZBL FALSB_RCVBUF IDX(RB) .RO 
MOVZWL FALSQ~RCVIOSB+2(R8) .~ 
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DAP PACKET 

»RD,NOWRT ,BYTE 


FALSRECEIVE_PKT reads the next DAP message packet from partner process. 


ock 


FAL terminates execution on encountering a logical Link Q10 error. 


Entry Point 

Branch if receive has completed 
Increment receive wait counter 
Otherwise wait for it to complete 


Check status code and exit on failure 
Clear receive Q10 Guegtanding Ties 
ay 


; Clear receive AST delivered 


DAP message packet just read. 


Get index of buffer 


; Store message size in receive 


FA 


G 1 


Rivets FALSRECEL VE PKT © RECELVE DAP Packer ase paloRG Siitoins HRACVESHPers pOg~OC.., Page 
40 As 4 18 FAL$Q_RCV(R8) ; _descript 
44 AB 5C ABS dO 036 1 MOVL FALSL “RCVBUF (R g) CROJ, - ; Store uffer address in receive 
bee FA ALSO “RCV+4 (RB) : descripto 
0036 iF ; Post a receive to replenish the one just completed. 
01 10 Sbee 3 BSBB FAL$RCV_Q10 ; Iss ¥ a read with an AST 
05 0058 227 RSB 3 Ex 
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16-SEP-1984 01:41:37 VAX/VMS Macro v04-00 Page § 
VE “SEP-1984 01:16:43 (CFAL.SRCJFALDAPIO.MAR;1 (5) 


CV_QIO = QUEVE LINK RECEIVE 
ODE NOSHR,EXE,RD,NOWRT BYTE 
j++ 
: Functional Description: 

FALSRCV_QIO issues a Q10 read request with an AST for the logical Link. 
Calling Sequence: 

BSBW FALSRCV_Q10 
Input Parameters: 

R8 Address of FAL work area 

R9 Address of DAP control block 

R10 Address of FAB 

R11 Address of RAB 


Implicit Inputs: 


Oo 
Oo 
o 
oO 
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5 ek el te te tat ek el eh oh ohh ah ah ad eh eh adh nada 


None 
Output Parameters: 


RO Completion code 
R1 Destroyed 


Implicit Outputs: 
None 
Completion Codes: 


Be Ge Ge Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se Ge Se Ge Ge Ge Se Se Se Ge Se Ge Ge Sse Se Se 


OOCDOOCOCOCOOSOOOOOOSOOCOSOSOOOOOOOOOOOOOOOOOOOO: 
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; None 
; Side Effects: 
; FAL terminates execution on encountering a logical Link Q10 error. 
: oo 
5 FALSRCV_QIO:: ; Entry Point 
2 SSETBIT #FALSV_RCVQIO, (RB) ; Signal receive Q10 outstanding 
5 : 
; 3; Log our intent to post a receive Q10. 
5 e 
08 68 24 4 5 BBC #FALSV_LOG_Q10,(R8),10$ ; Branch if Logging disabled 
51 0000'CF 6 MOVAB W*FALS$GT_RTVQIO,R1 ; Get address of counted string 
FFO7" 3 ° BSBW FAL$LOG_G10 ; Log Q10 posted to print file 
6 
6 


: Determine next receive buffer to use and update receive buffer index. 


oO 
PIPPIN IRIN IPINIPITPIPYNININPINININININPINIPIPINIPYPININIPIPINIPNININIPIPIPYPIPIPIPIPUPIPUPIPIPIPIPIPINPD 


SOOOCoOoOoOoOooo 
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4 
FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 er/ves Macro V04-00 Page 
v04-000 FALSRCV_Q10 = QUEUE LINK RECEIVE -SEP=-1984 01:16:43 (CFAL.SRCJFALDAPIO.MAR;1 
50. 11 as 9A 069 § 10$ MOVZBL FALS$B_RCVBUF IDX(R8) ,RO ; Get index of last buffer used 
2 06 D INCL ; Increment it 
01 Q 01 F 8 CMPL RO, #<FALSK_RCVBUF CNT=-1> ; Is it out of range? 
O¢ 18 2 9 BLEQU 20% : Branch if not 
5 D4 74 90 CLRL 0 ; Reset 
11 a8 50 90 6 $3 208: MOVB RO,FALSB_RCVBUFIDX(R8) ; Store new index value 
7A 93; 
gh 3¢ ; Issue a read with an AST for the logical Link. 
7A 296 
51 5c A840 sé 7A 3 MOVL FALSL_RC BUF (RB) ERO. R1 ; Get address of receive buffer 
7F 38 $Q10_S EFN=#FAL RCVEFN- ; Issue read with AST 
7F 9 EHANSFAC SW” NKCHN(RB)= ; 
7F 00 FUNC=#10$_READVBLK= : 
Ber 4 IOSB=FAL$Q_RCVIOSB(R8)= ; 
7F ¢ ASTADR=W°FALSRCV_AST-_—; 
O7F 0 ASTPRM=RB- ; FAL work area address 
O7F 04 Pi=(R1)- ; Receive buffer address 
007F 05 Po=FALSU -DAPBUFSIZ(R8) ; Receive buffer size . 
QOA1 $09 SCHECK_SS ; Check status code and exit on failure 
05 O0A4 07 RSB : Exit 


| 
| 
| 
| 
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Hiveat sy FALSRCV_AST = LINK RECEIVE AST reer] aRe Biitaies PAN/ MMs Macro yoen OO i 
A LSBTTL FALSRCV_AST = LINK RECEIVE AST 
000000, "PSECT FALSCODE NOSHR, EXE RD -NOWRT BYTE 
A p++ 
: 3 Functional Description: 


FALSRCV_AST processes a receive AST for the logical Link. 
Calling Sequence: 

Call #5,FALSRCV_AST (invoked by VAX/VMS as an AST) 
Input Parameters: 

4(AP) Address of FAL work area 
Implicit Inputs: 


jo lolololo=) 
>>>r>r>r 
VSI 


PPP 
IIT 


None 
Output Parameters: 
None 
Implicit Outputs: 
FALSV_RCVAST 
Completion Codes: 
None 
Side Effects: 
FAL terminates execution on encountering a logical Link Q10 error. 


COOOOOCSCOCSCSOSOSOSOSOOCOOCOOOOoOoOSooOO 
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"ge FALSRCV_AST,“M<R7,R8> 


Entry point from executive 
MO (AP) ,R 
SSETBIT #FALSV_RCVAST, (RB) 


Get address of FAL work area 


Oooooo 


COOOOCOCOOOOOSOSOOSOOOOOOSOOOOSOOOOOOOOOOoOoOO 
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AB Signal receive AST delivered 
1C 20 AB CED bat BLBC FAL$Q_RCVIOSB(R8) ,20$ Branch on receive failure 
B : 
8 3; Update counters and log delivery of receive AST. 
50 22 a8 3C a8 MOVZWL FALS$Q_RCVIOSB+2(R8),RO ; Get message size 
57 00CO C8 ODE MOVAL FALSL_STB(R8) ,R7 ; Get address of statistics block 
7 6 C INCL FALSL~RCV_PKT(R?) : Increment RCV message packet count 
10 A7 0 Cc 3 ADDL2 RO,FACSL_RCV_LNK(R7) ; Update RCV message byte count 
08 $e 23 1 C BBC #FALSV_LOG_AST,(R8),10$ : Branch if Logging disabled 
51 Os 3 C6 MOVAB W*FAL$GT_RCVQIO,R1 ; Get address of counted string 
FF32° CB BSBW FALSLOG_AST 3 Log AST delivered to print file 
ge cE 198: RET ; Exit 
50 20 A8 C CF 208: MOVZWL FALS$Q_RCVIOSB(R8) ,RO ; Save error code 
D3 SCHECK_SS ; Fatal error--terminate image 


0180 
58 04 AC DO 
L 


= DAP MESSAGE 1/0 ROUTINE 
FALSTRANSMIT = SEND DAP MESSAGE 
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E “SEP=-1984 01:16:43 CFAL.SRCJFALDAPIO.MAR; 1 
-SBTTL FALSTRANSMIT = SEND DAP MESSAGE 

~-PSECT FALSCODE NOSHR EXE ,RD ,NOWRT ,BYTE 


++ 
Functional Description: 


FALSTRANSMIT writes the next DAP message to the partner process. 
DAP outbound message blocking is supported. 


Calling Sequence: 
BSBW FALSTRANSMIT 
Input Parameters: 
R8 Address of FAL work area 
Address of DAP control block 
R10 Address of FA 
R11 Address of RAB 
Implicit Inputs: 
DAPS$V_LENGTH 
DAP$V_MSGBLK 
FAL$Q"BLD 
FALS$Q_XMT 
FAL$W-DAPBUF SIZ 
FALSV_LAST_MSG 
Flags field of the DAP message 
Output Parameters: 


RO Completion code 
R1 Destroyed 


Implicit Outputs: 


FALSQ_XMT 
FALSV_LAST_MSG cleared 
Completion Codes: 
None 
Side Effects: 
FAL terminates execution on encountering a logical Link Q10 error. 


FALSTRANSMIT:: : Entry Point 
PUSHR #*M<R2,R3,R4,R5> ; Save registers 


: Update counter and log the DAP message. 


———— 


A 
EX 


FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 VAX/VMS Macro v04-00 Pa 
V0se000 FALSTRANSMIT = SEND DAP MESSAGE 7$eb= 1382 Bt toias FAL.SRCJFALDAPIO.MAR; 1 it 
00D8 C8 D6 4 ? : haietereiindiilatiiliitle st + ond aoe Noma? 
; Coun s message for loggin 
OF 68 oe E1 4 § ey LOG MSG (R8),10$ ; Branch if lo ing disabled” s 
| 54 AS DD 4 FAL$Q_BLD+% (R85 ; Address of DAP message 
50 A8 D 428 FAL$Q_BLD(R8) ; Size of DAP wossoge 
0000' CF F 6 429 W*FALSGT_ENCODE ; Address of counted ASCII string 
QOOO'cF 03 FB A : 9 #3,W*FALSDISPLAY_MSG ; Print the message 
, #32 3 
. ; Does partner support message blocking? 
F 435 
12 «€1 6 ie § #DAPSV_MSGBLK,- ; Branch if message blocking is 
57 28 Ad 0 } 437 DAPSQ_SYSCAP(R9),50$ : disabled 
OOF4 439; 
8 : ra ; Are there any messages in XMT buffer waiting to go? 
O0F4 44 
48 AS DS OOFS 208 FAL$Q_XMT(R8) ; Branch if there are no blocked DAP 
18 13 QOF7 444 208 3 messages in buffer 
OOF9 445 
OOF9 re ; 
8p 4 ret ; Will new message fit in XMT buffer with other messages? 
OOF9 449 
50 AS C1 OOF9 450 FAL$Q_BLD(R8),- ; Compute total # bytes if new message 
50 48 A8 OOFC 451 FALS$Q_XMT(RB) ,RO ; _were added to transmit buffer 
51 1A A8 3C OOFF 13g FAL $W~DAPBUF S1Z(R8) ,R1 ; Prepare for penguere compare as size 
0103 45 ; _in RO may slightly exceed 64K 
51 50 D1 0103 454 RO,R1 ; Branch if new message can be blocked 
28 1B 0106 455 308 ; with the others 
0108 456 
0108 457; 
0108 458 XMT buffer to make room for new message. 
0108 459 
0108 460 
54 48 A8 7D 0108 461 FAL$Q_XMT(RB) RS ; Put buffer descriptor in <R4,R5> 
4A 10 010C $66 FALSTRANSMIT_PKT ; Send the blocked messages 
QO10E 46 yp ; Branch on failure (no status returned) 
48 AB D4 O11 ree: FAL$Q_XMT(R8) : Initialize byte count in descriptor 
111 +466; 
O11 rth ; Determine whether new message should be sent now or deferred (bufferred). 
111 469 ° 
09 €1 O111 470 208: BBC #<DAPSV LENGTH+8> ,- ; Branch if this message does not allow 
35 54 B8 113. 471 @F AL$Q_BLD+4(R8) ,50$ ; additional blocking (implicit flush) 
31 68 18 €£E0 0116 $76 BBS #FALSVLAST_MSG, (R8) 50S; Branch if this is last message of 
111A 47 3 sequence (explicit flush) 
sia ih 
11h 476 : Move new message to XMT buffe;, or simply map message if BLD and XMT buffers 
11A 477 ; are alianed. 
11A 478 
1A 47¥ ; 
: 50 AB DO O1IA 480 MOVL FAL$Q_BLD(R8),- ; Update byte count in descriptor 
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| ANSMIT = SEND DAP MESSAGE “-SEP-1984 01:16:43 (CFAL.SRCJFALDAPIO.MAR;1 (7) 
48 A 11D 481 FALSQ_XMT(R8) : 
54 A 11F 64 g CMPL ae ar ett He i; Eliminate move of data if BLD and XMT 
4C } ¢ ? ? aeoL | gai lan ) ; buffer addresses coincide 
50 A 1 $ 485 MOVC3 FAL$Q_BLD(R8),- : Copy the message 
54 B 1 4 : aFAL$ =BLD+4 (8) ,- ; 
4C 8B 12B 64 @FAL$SQ_ XMT+4(R8B) $ 
0000'CF 12D 488 INCL W*FALSGL_COUNTER2 ; Update message copy counter 
1E 131 ret BRB suc 3 
ne 
0 138 ; Append new message to XMT buffer which already abuts XMT buffer. 
1 494 ° 
3 436 30$: MOVL RO, FALSQ_XMT(R8) ; Update byte count in descriptor 
0137 497; 
B13! 138 ; Determine whether new message should be sent now or deferred (bufferred). 
0137 500 ° 
0137 501 BBC #<DAPS$V_LENGTH+8>,- ; Branch if this message does not allow 
0139 308 @FAL$Q_BLD+4(R8),40$ 3 additional blocking (implicit flush) 
013¢ 8=. 50 BBC #FALSV_LAST_MSG,(R8),SUC; Fall thru if this is last message of 
0140 504 3 sequence (explicit flush) 
0120 806 
0140 507 : Send blocked messages from XMT buffer. 
gig aa 
54 48 AB 7D 0140 £510 40$: mMOVQ FAL$Q_XMT(RB8) ,R4 ; Put buffer descriptor in <R4,R5> 
12 10 0144 511 BSBB FALSTRANSMIT PKT : Send the blocked messages 
48 AB D4 0146 216 CLRL FALSQ_XMT(RBY 3 Initialize byte count in descriptor 
11 0149 51 BRB EXIT ; 
gg 3H 
0148 218 > Send new message from BLD buffer. 
b148 818 
54 50A8 7D Q14B 519 50$: MOVQ FAL$Q_BLD(R8) ,R4 ; Put buffer descriptor in <R4,R5> 
10 O14F 520 BSBB ss FAL STRANSMIT_PKT : Send the message 
0151 521 ; s**e* BRB EXIT 3 
gl 8 
131 4 : Return to caller. 
181 358° 
151 ; SUC: ; No status is returned by this routine 
131 2 3 ; seeee MOVL #1,R0 3; Return success 
151 ExIT:  $CLRBIT #FALSV_LAST MSG. (RB) : Enable message blocking 
3c BA 155 2 0 POPR #°M<R27R3,R4,R5> ; Restore registers 
5 0157 1 RSB ; Exit 
| 


AAAAAAAAADAADAARARHAHAMRAMAAMATNHAMTHATM THAT ATT 
>>>>>>>>>>>>>>>>>?>>>>>>>r>?>?>?>>?>>> > YY > > > > > YY P>y>>r>>r>>r>r>r>r>r>r>r>,Y 


| N 1 
A vaer Ne - DAP 
v04-00 FALS$TR 
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MiT_PKT = SEND DAP PACKET Breen a8e Bi toses LPM eacHeAL Cabo nurs 1 oF th 
LSBTTL FALSTRANSMIT_PKT = SEND DAP PACKET 
"BSECT FALSCODE NOSHR,EXE.RD NOWRT ,BYTE 


Oo 
o 
So 
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Ot ee ee a a a ed ad dd od od OSE 
feat al © a1 © ok al sh ah sh sh Ab Ab Ab Ah Ab db db db bd hb ab Ab db ab ab ah ab ah Ab Ah Ab dh Ab Ab Ab dh ab db Ab dh Ab db db db db db ab db db db dh ee ol 


++ 
Functional Description: 


FALSTRANSMIT_PKT sends the specified packet of DAP messages to the 
partner process. 


Calling Sequence: 
BSBW FALSTRANSMIT_PKT 
Input Parameters: 
R4-R5 Descriptor of message packet to transmit 
R8 Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 
Implicit Inputs: 
None 
Output Parameters: 


RO Completion code 
R1 Destroyed 


None 
Completion Codes: 
None 
Side Effects: 
FAL terminates execution on encountering a logical Link Q10 error. 


Entry Point 
Send packet to partner 
Wait for 1/0 to complete 


FALSTRANSMIT_PKT:: 
BSBB-  FALSXMT_QIO 
SWAITF 


CEFN=AFALSK_XMTEFN 


SSSI D DDD DD DDD De TUT BB BB BBE EE EWN 


Cococoj#: v 
PES Sos OUI OOOO WO WRI 2 DOO GOULD ODO WOVE WR OOONOULSWw Ke 


| 
Implicit Outputs: 


mM > OW} F 0900000000 09 0d Cd Cd 0D 09 0D CD OD GD CD Cd Cd G9 Cd CD CD C9 CD C2. CD CO CO CO CD COCO CD CUCU CO COODODCOCDCUCRODODOD W717 
PVD LVIVIVWIVIVIVIVLUIV IV IVIVSIVSIUDVIUSIVLIUSUIUSUS USUI USV SVS VUS USUI USVSTOS USUI VSS VS TOS USSU USO ISIS 


we Lae fae eee ele ele ele ww www wlan lanl ol alae el olelelolelelelelolelelelolelelelelalalalelolal a) 


SCHECK Check status code and exit on failure 
SCLRBIT ZEAL BY HNTOLO. (RB) Clear transmit Q10 gutstanding flag 
05 SEL Aeit #FALSV_XMTAST, (R8) peer transmit AST delivered flag 
xi 


FALDAP10 DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 VAX/VMS Macro v04-00 P 
vO6-000 FALSXMT 910 = QUEVE LINK TRANSMIT “SEP=1984 01:16:43 CFAL.SRCIJFALDAPIO.MAR; 1 ae 
~SBITL FALSXMT QI0 = QUEUE LINK TRANSMIT 
000001 et -PSECT FALSCODE NOSHR ,EXE,R.),NOWRT ,BYTE 


Functional Description: 
FALSXMT_QIO issues a Q10 write request with an AST for the logical Link. 
Calling Sequence: 
BSBW FALSXMT_QIO 
Input Parameters: 


R4-R5 Descriptor of message eens to transmit 
R8 Address of FAL work are 


R9 Address of DAP control block 
R10 Address of FAB 
R11 Address of RAB 


Implicit Inputs: 
None 
Output Parameters: 


RO Completion code 
R1 Destroyed 


Implicit Outputs: 
None 
Completion Codes: 
None 
Side Effects: 
FAL terminates execution on encountering a logical Link Q10 error. 


Be Ge Se Ge Se Ge Se Ge Se Se Se Ge Ge Ge Se Ge Se Se Ge Se Se Se Be Be Se Ge Se Se Se Fe Se Se Ge Ge Se Ge Ge 


FALSXMT_QIO:: ; Entry Poin 
“$SETBIT #FALSV_XMTQIO, (RB) > Signal toonent’ Q10 outstanding 


Log out intent to post a transmit Q10. 


68 2% 4 BBC #FALSV_LOG gai? (R8),10$8 ; Branch if Logging disabled 
51 0000°CF E MOVAB W*FALS$GT_XATQIO,R1 - ; Get address of counted string 
FE81" 30 BSBW FALSLOG "'° ; Log Q10 posted to print file 


Issue a write with a AST for the logical Link. 


PEAR AEAAAAAAAAAAAA AAA AAA AAA AAA AAA AA AAAS AA AA AA MAINA 
BBP AWANAI AAI AIIWIDRIRIPIPIPIAININIIID 2 OP OP PMPOOOCOCOOCOCOCOOWOOOOOOOOMMOCDD 
RO OODNOAUE WR OOD NAME WIN 0 OO NOUS WN | CO OO NOA UE WN | O OONAU EWN OOONO 


SIN NNN A AAA AAA AA AAAAA AAA AAAAAAAAAAAAAAHAASAAAAAAAAAOH 
TRH HAO NWA III Fn nnn nn nn nn nn nn nn nn no on or oo oo 


DCDOOSOOCOCOCOCOOCOCOSCOSCOCOCCOCOSSOSSSSOCOCCOCSOOSOOCOCOOCOOCOOOCOCOOCOCOOCOOOO: 
ed eed aed aad an acd and en an ea ea and ex and an ca cal ca ach ao ea ca a ch coe a a ce eae ee ce ee cee ch et ct ae ee ee ccc ee ee ee ec ec ee ee et ce ee ee ee eee eB 


ee | 


SEP=198 


f 


2 


C 


1/0 ROUTINES 
QUEUE LINK TRANSMIT 


MESSAGE 
T_Q10 = 


a 

<= 

a 
b 


FALSXM 


; Check status code and exit on failure 


; FAL work area address 
; Transmit buffer address 


; Transmit buffer size 


wz IOMwer 
wou-aetaaan 


.5 


SCHECK 
RSB 


SS be Se be ee A A 
WOWODOOOO0O0O0O0DO 


A OOD 
[ee ee ee ee eS 
ccc COCO OO 


COOOOCOOCOCOCOCOO 
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FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 VAX/VMS Macro V04-00 P 17 | 
v04-000 FALSXMT_AST = LINK TRANSMIT AST SSEP=1984 O1:16:45 LPALVSRCIFALDAPIO.MAR:1 P29 (1), 
AG ~SBTTL FALSXMT_AST = LINK TRANSMIT AST 
0000 1A4 -PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE 

1A4 p++ 
1A4 3; Functional Description: 


FALSXMT_AST processes a transmit AST for the logical Link. 
Calling Sequence: 
Call #5,FALSXMT_AST (invoked by VAX/VMS as an AST) 


Input Parameters: 

4(AP) Address of FAL work area 
Implicit Inputs: 

None 
Output Parameters: 

None 


MEUM — O OONAU EWN OC OONAUE WI OWOONOUW me 


109 09 09 09 09 09 SI NI NSIS NNO AAA AAAI 


SSNS SDDS DS DDS DS DS DDS DS DDD DPA AAA A AAA AAAAAAAAAAAAOAAOAAO 


4 
1 
01 
01 
ae 
1A 
OIA 
OIA 
OIA 
O1A 
O1A 
O1A 
O1A 
O1A 
O1A 
O1A 
O1A4 
01A4 Implicit Outputs: 
Q1A4 
01A4 FALSV_XMTAST 
O1A4 
01A4 Completion Codes: 
O1A4 
QO1A4 None 
O1A4 686 
O1A4 87 ; Side Effects: | 
O1A4 88 
Bia 3 FAL terminates execution on encountering a logical Link Q10 error. 
O1A4 «691 ¢== 
O1A4 3 | 
0180 O1A4 9 -ENTRY FALSXMT_AST,“M<R7,R8> ; Entry point from executive 
58 04 AC DO OQ1A6 94 MOVL AP),R 3; Get address of FAL work area 
Q1AA 95 SSETBIT #FALSV_XMTAST, (RB) : Signal transmit AST delivered 
1D 28 AB CE ne 36 BLBC FAL$Q_XMTIOSB(R8),20$ ; Branch on transmit failure 
1B 98 ; 
i: $3 ; Update counters and log delivery of transmit AST. 
6 | 
7 
50 2AA 1B é MOVZ2WL FALSQ_XMTIOSB+2(R8),RO ; Save # bytes transmitted 
57 00CO C DE 0186 0 MOVAL FALS$L_STB(R8) ,R7 ; Get address of statistics block 
14 A? =D6 0188 4 INCL FALSL-XMT_PKT(R7) ; Increment XMT message packet count 
24 AT 39 co 186 5 ADDL2 RO,FACSL_RMT_LNK(R7) ; Update XMT message byte count 
868 2 4 1C 6 BBC #FALS$V_LOG_AST,(R8),10$ : Branch if Logging disabled 
51 0000'CF 3 1¢c6 = 707 MOVAB W*FALSGT_XATQIO,R1 ; Get address of counted gtring 
FE32* 3 1CB 43 BSBW FAL$LOG_AST : Log AST delivered to print file | 
0 1CE 108: RET ; Exit 
50 28 AB C OCF 19 20$: MOVZWL FAL$Q_XMTIOSB(R8) ,RO ; Save error code 
1D3 1 SCHECK_SS ; Fatal error--terminate image 
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ROUTINES 16-SEP-1984 01:41: if AX/VMS Macro V04-00 P 
READ AND PARSE INTERRU 5=SEP-1984 Bit 16:43 EPAL SRCJFALDAPIO.MAR; 1 a 
~SBTTL FALSRECEIVE_MBX = READ AND PARSE aa 
~PSECT FALSCODE NOSHR,EXE,RD,NOWRT ,BYTE 


+4 
; Functional Description: 


PAL ORECEDVE MBX returns the next DAP message sent as an interrupt 
message 44 he partner process. It is returned as a decoded message 
via the DAP control block. 


; Calling Sequence: 


BSBW FALSRECEIVE_MBX 


; Input Parameters: 


R8 Address of FAL work area 

R9 Address of DAP control block 
R10 Address of FAB 

R11 Address of RAB 


; Implicit Inputs: 


FAL$Q_MBX 


; Output Parameters: 


RO-R1 Destroyed 


; Implicit Outputs: 


DAP control block is updated to reflect message parse. 


; Completion Codes: 
748 ; 
; Side Effects: 


DAP$Q_DCODE_STS 


FAL terminates execution on encountering a mailbox read error. 


FALSRECE ING. MBX:: 


SCHECK 
10$: SCLRBIT #FALSV_MBXQI0, (R8) 


; Entry Point 
Branch if pecuies has completed 
Otherwise wait for it to complete 


a {RAL -MBXAST, (RB), 108 


SWAITF : 

RS NeeEALSK _MBXEFN 3 

ss 3; Check status code and exit on ietlure 
; Clear mailbox Q10 ry aeed gp Me ag 


SCLRBIT sr ALSV_ _MBXAST, (R8) ; Clear mailbox AST delivered 


; Post a receive to teplentsn the one just completed. 


Note: We ay the risk of receiving another mailbox message immediatel 
which ney overwrite the current message before we can erocese i 
nes would be a very very unk teh y occurrence from at ming point of 
view, and the partner process would be misbehaving badly! 


F 2 | 
FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:3 AX/VMS Macro V04-00 Page 19 | FAI 
vO%~000 FALSRECEIVE_MBX = READ AND PARSE INTERRU gree o82 1i1b:a3 EPALCSRCIPALDAPIOLMAR; 1 0° ii | vO 
1€— 770; 
1EE iyo 
24 «10 i tre BSBB FALSMBX_RCV_QI10 ; Issue a read with an AST 
1F oe 3 
1F 775 ; Parse next DAP message. 
fo fe 
38 AB 7D it a MOVQ FAL$Q_MBX(R8) ,- 3 Copy mailbox message descriptor to | 
08 A9 Oi 77 DAPSQ_MSG_ BUF {1 (R9) ; DAP message descriptor | 
59 DD OF 780 PUSHL R9 ; Push address of DAP control block 
OOOO'cF 01 FB gee 1 CALLS #1,W*FALSDECODE_MSG ; Parse the message | 
O1FC 67 § ; 
arr 78s ; Update counter and log the DAP message. 
1FC | 786° 
00C4 C8 D6 QOIFC at INCL FALSL_STB+FALSL_RCV_MSG(R8) 
0200 788 ; Count DAP message for Logging 
OF 68 22 €1 Q200 789 BBC #FALSV_LOG_MSG,(R8),20$ ; Branch if Logging disable 
14 A9 =DD 0204 790 PUSHL DAP$Q_ASG_BuF $4 (R95 ; Adddress of DAP message just decoded 
10 Ao «=DD 0207 791 PUSHL DAPS$Q_MSG_ BUF 2(R9) : Size of DAP nas ives decoded 
000'CF 9F Q20A 79 PUSHAB W*FALSGT_BECODE ; Address of counted ASCII string 
OO0O'cF O03 FB QO of 79 CALLS #3,W*FALSDISPLAY_MSG ; Print the message 
05 021 794 208: RSB : 


| 
| 
| 
Exit 
| 
| 


6 2 
FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16=SEP=1984 01:41:37 VAX/VMS Macro V04-00 P FAI 
VO%-000 FALEMBR RCV G10. ~ QUEUE MAILBOX RECEIVE SaseP=19be Oi itores FRAC eacTPArBabeG. mors 1 age 99, v0 
.SBTTL FALSMBX_RCV_QIO = QUEUE MAILBOX RECEIVE 
~-PSECT FALSCODE NOSHR,EXE,RD,NOWRT BYTE 


++ 
; Functional Description: 


PA, PRO RCV 810 issues a Q10 read request with an AST for the 
mailbox associated with the logical Link. 


Oo 
oOo 
o 
Oo 
OOCCCOCOCOCOCOCO 


; Calling Sequence: 
BSBW FALSMBX_RCV_Q10 
; Input Parameters: 
RB Address of FAL work area 
R9 Address of DAP control block 
R10 Address of FA 
R11 Address of RAB 


; Implicit Inputs: 


; Output Parameters: 


R1 Destroyed 
; Implicit Outputs: 
None 


Completion Codes: 
; None 
; Side Effects: 
FAL terminates execution on encountering a mailbox read error. 


& 
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oO 
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° 
e 
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$3 ; Entry Point 
#FALSV_MBXQIO, (R8) ; Signal mailbox Q10 outstanding 


5 et el el el ee ee ee ee ee et et el et et et et et et et et et et et et et et et et et et et tt et 1 


| 
| 
| 
| 
RO Completion code | 
| 
| 
| 
| 


FFI AAAI PPINIPINPIPININIDYD 2 9 OO  MOOOOOOOCOCOCOOOOO 
POONA NEA 2 O ODA NE WIN OOO NAME WIN = OOONAU EW OOONOUE WO 0ONO OF 


; Log our intent to post a mailbox receive Q10. 


BSC #FALSV_LOG Q10,(R8),10$ ; Branch if Logging disabled 
HOVAB W*FALSGT_MBXQ10,R1 ; Get address of counted string 
3SBW FAL$LOG_G10 ; Log Q10 posted to print file 


2.00.09.00 00 09 G9 09 Cd Cd Cd Cd G9 Cd Cd Cd Cd G9 Cd CD Cd Od C9 OD CD 09 C9 09 CD GD Cd OD CD OD OD CD CD 09 09 C9 C9 0D 09 0D CD09 0D 09 CD CD CD OD 09 SII 


RORMOIPONR SP Ps Os? OP? OP OP Ps? OP a OP PP PP PP PP HP PP PP PH PP BB SS SB SV SS SS e 


PIP IPDPPGPPIPIPINPINDNIPYNDPINIPINININININININIPINININIPONIPYININIPIPIPYPINPYINIPIPIPPIPIPIPUPOPIPIPYPIPIPPPND 


SOOOOCOSOOSOOOOCOCOCOCOOCOCOOCOOOOCOOOOOOOCOOOCOOOCOOOOOOOOOOoOO 


& 7 00090800 


wT oT ot ta et 


+ Issue a read with an AST for the mailbox. 


H 2 
ILBOX RECEIVE 


$Q10_S tAeprad og -MBXEFN- 
CHA were spettay ga 


Ate aRCV_ AST 


PRM 
FAUST 8 ABXBUF (RB) = 
5 2=#F ALSR_MBXBUF 


01 :61:3¢ aie Macro V04-00 Page d 


SRCJFAL DAP 10.MAR;1 


; Issue read with AST 


work area address 
the Lbox buffer aqeress 
Mailbox buffer size 
a Engen status code and exit on failure 
Ex 


1 
2) 


FA 
vO 


FALDAPIO ah, 
vO4-000 FAL 


a? 


RIPDPOPINIPIPINIPIPINIPINIMYAPINI/PIPIPIPAPININININIPUPIPININIPIPPONINININIPPINPINPININIPIPIPIPIPIPIPIPUNIPUPININNYD >< 


0180 
58 04 aC 00 


07 30 A8 8 
50 20 AB C 


PARANA AWWA EEE EEE EEE EEE EE EEE EE EEE EERE EE EERE EEE EEE EEE EE EEE | 


awn 
<> 
'a 
>m 
wn” 
1o 


OOOO O00 00000000 0990808 NI NIN NISSEN NIAAA OO 


=O OOP NE WAIDN OOO NAME WIN 2 SO OOD NAME WN 9 OD NOAUE WW 0 OONOAOU ES WWNOOONOU —tie 


WOOOOOOOOO000000000 000 00009 09 09 09 00 Cd C0 Cd Cd Cd G0 0D 09 OD CD C9 CD CD 09 CD C9 CD 0D 09 CD. 0D CD COCD CD 0D 000000 
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ROUTINES 16-SEP-1984 gi: 741 7 AX/VMS Macro V04-00 Page 
MAILBOX RECEIVE AST “SEP=1984 01:16:4 FAL.SRCJFALDAPIO.MAR; 1 

~SBTTL FALSMBX_ RCV_AST - st ee $4 X RECEIVE A 

-PSECT FALSCODE NOSHR,EXE,RD,NOWRT, BYTE 
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Functional Description: 


9 Art ie tin V_AST processes an AST for the mailbox associated with the 
eae Link. Depending on the type of message, one of three actions is 
(1) iy rie is it on message, a descriptor is formed to point to 
(2) rf he. montage indicates that the Link has been broken, FAL is 

(3) if it is an extraneous message, it is simply discarded. 


Calling Sequence: 

Call #5,FALSMBX_RCV_AST 
Input Parameters: 

4(AP) Address of FAL work area 
Implicit Inputs: 


(invoked by VAX/VMS as an AST) 


None 
Output Parameters: 
None 
Implicit Outputs: 


FAL$Q_MBX 
FALSV~ MBXAST 


Completion Codes: 
None 
Side Effects: 
FAL terminates execution on encountering a mailbox read error. 


ENTRY FALSMBX RCV_AST,“M<R7, R8> 


ae Entry point from executive 
poeselt at MS Be pratt coe) 


; bet address of FAL work area 
Signal mailbox AST delivered 


LBS AL$ 10S8(R8) ,10$ Branch on success 
MOVZWL FAL$Q~ “REV IOSBCR ),RO ; Save error code 
SCHECK_SS ; Fatal error--terninate image 


Log the mailbox message type code. 


a 1 


J 2 | 


FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-19 1:41:37 VAX/VMS Macro Vv04-00 Page 23 FA 
VOse000 FALSMBX_RCV_AST = MAILBOX RECEIVE AST et Bti%6 743 YRAL SRCJFALDAPIO.MAR; 1 . (33) vo 
10 68 22 €1 64 § 10$: BBC #FALSV_LOG_MSG,(R8),20$ ; Branch if logging disabled 
6 $FAO_S A i eeuar at Gd_MBXMSG- ; Format the message 
6 “FALSGW dT 3 
6 SUBUF WP AL SCO PRTIBUF 2-; 
8 risen MBXBUF TRB) ; First four bytes of mailbox message 
F SCHECK_STAT 3; Check status code 
FO7B" 30 Ht BSBW FAL PRINT. FAO_ASTLEVEL ; Print message 
5 ; 
S : Take appropriate action depending on the mailbox message type. 
51 1980 C8 9E 8 208: MOVAB FALST_MBXBUF (R8) ,R1 3; Get address of mailbox buffer 


ASSUME MSG$_ABORT EQ 48 


E 
ASSUME MSGS$"NETSHUT E 


SCASEW SELECTOR=(R1)+,- ; Mailbox message type: 


o>r>>>r>r>rrrrrrrrrrrrrrr rrr rrr rrr 


111 a a ABORT~ : 
or enres ; Disconnect abort 
IGNORE- 3; Connect confirm 
IGNORE- : Connect initiate 
FALSTERMINATE- ; Synchronous disconnect 
FALSTERMINATE=- ; Partner exited prematurely 
INTERRUPT=- ; Interrupt message 
FALSTERMINATE- ; Partner no longer accessible 
FALSTERMINATE- ; NSP protocol error 
IGNORE- ; Connect reject 
FALSTERMINATE- ; Thirdparty disconnect 
IGNORE- ; Connect timeout 
IGNORE- ; Network shutting down 
A 965 
A6 08 3 
A6 967 ; Ignore unexpected mailbox message. 


: Discard junk mail 
CLRL RO : Make this a null message 
ave RO, FAL$Q_MBX(R8) : store descriptor of interrupt data 


An interrupt message has been received. 


SOOOOOOOCOOOOOOCOOOCOCOCOCOOCOCOCOCOCOCS OOOO CO COCO OOOOOOOOOOOOOOOOOOOOO 
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K 
FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16-SEP-1984 01:41:37 VAX/VMS Macro v04-00 Page 24 
vOs-000 FALSMBX_RCV_AST = MAILBOX RECEIVE AST et STi ioies FAL.SRCJFALDAPIO.MAR; 1 . 4) 
AD +44 INTERRUPT: 3 
81 5 AD 0 TSTW (R1)+ ; Skip over unit # 
0 1 A AF 4 1 ite (R1)+,R0 ; Skip over device name stored 
1 0 0 Be ¢ ADDL RO,R1 ; _as a counted ASCII string 
0 81 9A 0¢B 3 MOVZBL (R1)+,RO : Get size of interrupt data field 
38 AB 6550S 7D a ; : MOVQ RO,FAL$Q_MBX(R8) ; Store descriptor of interrupt data 
BC H 
BC 9 5 ; Update counters and log delivery of mailbox AST containing a DAP interrupt 
BC +t} 3 message. 
ae 
57 00CO C8 ODE 6 BC 991 MOVAL FALS$L_STB(R8) ,R7 ; Get address of statistics block 
67 D6 02C1 43 INCL FALS$L_RCV_PKT(R7) ; Increment RCV message packet count 
10 A? 50 4¢cO 0203) «(99 ADDL2 RO,FACSL_RCV_LNK(R7) ; Update RCV message byte count 
08 68 23 £1 0207 99% BBC FALSV_LOG AST, (R8),30$ ; Branch if logging disabled 
51 0000'CF 43 02cB 8995 MOVAB W*FALS$GT_MBXQIO, ; Get address of counted string 
FD2D' 30 0 34 99 BSBW FAL$LOG_AST : Log AST delivered to print file 
04 8 + 444 30$: RET ; Exit 
0204 999 ; - END ; End of module 
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SSCOUNT 
$$T 


DA A 
DAPS$L_CRC_RSLT 
DAPSL_DCOBE_STS 
DAPSL MSG AKSK 


“TMP2$ 
DAP$Q~DCODE _FLG 
DAPSQ"MSG_BOF 1 


FAL$B~LOGGING 
FAL$B-M1SCOPT 
F RAC 


FALS$B_RBK_CACHE 
F AL$B_RCVBUF IDX 
FAL $B" VALUE 
FALSCRECK_SS 
FALSCHECK- STATUS 
FAL$C_STBBLN 
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L$i~FAB2 
USL EHCKAB 
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LIKEYXAB 
$L“KEYXABINI 
$LNAM2 
LSL“NUMBER 
L$L“PROXAB 
L7RA 
SURCVBUE 
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FALDAPIO = DAP MESSAGE 1/0 ROUTINES 16*SEP=1984 01:41:37 VAX/VMS 
Symbol table ety Pi OF thi 28 YPAL S2c 
FALSMBK RCV -AST 4F RG FAL$W_USE_DBS A 
FALSMBX-RCV_QI0 tata 14 RG 03 FAL$W-USE-SYS iY 
L LEVEL reeeeeee FALSXAT_AST 1A4 RG 
EACSPRIRT demceshinnaiin 0000005 Arete ato 16F RG 
re ey att lian 4 
FALSQ_ § 10$_READVBLK = 1 
FALS$Q_MBX 0 10$"WRITEVBLK 2 0 
FAL$Q— -MBX10SB 0000 MSGS$_ABORT = 8 0 
FAL$Q-RCV 36 8 MSG$_ CONFIRM = 000 1 
FALS$Q_RCVIOSB 2 MSG$_ CONNECT = 00000 ¢ 
FALS$Q_RMS 9 9 oe MSG$_DISCON = 38 8 
FALSQ_STATE_CTX MSG$_EXIT = 4 
FAL$Q_SYSNET 8 4b MSG$_INTMSG = 00000035 
FALS$Q_TEMP 9000 F MSG$_NETSHUT = 00000038 
FALS$Q_VOLNAME 0000008 MSGS_ oparny eet = 00 B85 § 
FAL$Q_XMT 0000004 MSGS$_ =PROTOS L = 000000 
FAL$Q_XMTIOSB it MSG$_REJECT = 00000038 
FALSRCV_AST OO000A5 RG 02 MSG$_THIRDPARTY = 00000039 
FALSRCV_QI10 444494 RG 02 MSG$_TIMEOUT = Q000003A 
FALSRECEIVE 00000000 RG 0 SUC 00000151 R 
FALSRECEIVE_ 000001D6 RG 0 SYSSFAO aeeeeeee =X 
FALSRECEIVE PKT 00000028 RG 0 SYS$Q10 aeeeeeee GX 
FALSTERMINATE teeteenre 0 SYSSWAITFR akeneeen GX 
FALSTRANSMIT 000000D6 RG 0 
FALSTRANSMIT_PKT 00000158 RG 0 
FALS$T_DAP 0000100 
FALS$T_DIRNAME 0001F 
FALS$T_EXPAND 00005 
FAL$T_EXPAND2 OO00A 
FAL$T_FALLOG 0001C 
FALS$T_FILESPEC 00004 
FALST_FILESPEC2 B8009 
FALST_KEYBUF 00007 
F AL$T_MBXBUF 00019 
FALS$T_PRTBUF 1 pOoTA 
FAL$T_PRTBUF 2 00018 
FALST_RESULT 00006 
FALS$T_RESULT2 000 
FAL$T_SYSNET 
f ALST- VOLNAME 
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! Psect synopsis ! 


toe err eo en aeeecane aa + 


PSECT name Allocation PSECT No. Attributes 

. ABS 00000000 8} 0¢ 0.) NOPIC USR CON ABS LCL N 
ABSS 00002000 ( 8192.) 1¢( 1.) NOPIC USR CON ABS~ LCL NOS 
FALSCODE 00000204 ( 724.) 02 ¢ 2.) NOPIC USR CON REL LCL N 
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; Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 34 88:80:00.0? 80:00:06 86 
Command processing 114 00:00:00.34 0:00:02.80 
ass 308 00:00:07.46 00:00:31.64 
Symbol table sort 0 eS eS Y 00:00:03.61 
Pass 169 00:00:01.87 00:00:07.39 
Symbol table output 24 00:00:00.12 C0:00:01.67 
Psect synopsis output 1 00:00:00.01 90:00:00.01 
Cross-reference output 8 00:00:00.00 00:00:00.00 
Assembler run totals 65 00:00:10.86 00:00:49.39 


The working set Limit was 1500 pages. 

60593 bytes (119 pages) of virtual memory were used to buffer the intermediate code. 

There were 50 pages of symbol table space allocated to hold 908 non-local and 35 local symbols. 
999 source Lines were read in Pass 1, producing 23 object records in Pass 2. 

28 pages of virtual memory were used to define 26 macros. 


+ 
! Macro Library statistics ! 
oe er ees + 


Macro Library name Macros defined 
-$255$DUA28:(CFAL.OBJJFAL.MLB; 1 11 
$255$DUA28: CSYSLIBISTARLET.MLB;2 1 
TOTALS (all Libraries) 2 


1125 GETS were required to define 23 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:FALDAPIO/OBJ=OBJ$:FALDAPIO MSRC$:FALDAPIO/UPDATE=(ENHS$:FALDAPIO) +LIB$:FAL/LIB 
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